home *** CD-ROM | disk | FTP | other *** search
/ The 640 MEG Shareware Studio 2 / The 640 Meg Shareware Studio CD-ROM Volume II (Data Express)(1993).ISO / windows / wbt31a.zip / INTACTV.WB$ < prev    next >
Text File  |  1991-02-17  |  421b  |  9 lines
  1. UnusualName87623=""                    ; Use a very unusual variable name
  2. :zork
  3.                                        ; Ask user for statement to execute
  4. UnusualName87623=AskLine("Interactive","Enter statement",UnusualName87623)
  5.                                        ; Then actually execute the statement
  6. execute %UnusualName87623%
  7.         
  8. Goto zork                              ; and loop for more punishment
  9.